﻿Imports DAO
Imports DTO

Public Class HoaDonBUS

    Public Function LayHoaDon() As DataTable
        Dim dt As New DataTable
        Dim hd As New HoaDonDAO
        dt = hd.LayDanhSachHoaDon()
        Return dt
    End Function


    Public Sub ThemHoaDon(ByVal hd As HoaDonDTO, ByVal cthd As ChiTietHoaDonDTO)
        Dim hoadon As New HoaDonDAO
        hoadon.ThemHoaDon(hd, cthd)
    End Sub

    Public Function IDHoaDon(ByVal id As HoaDonDTO) As DataTable
        Dim dt As New DataTable
        Dim hoadon As New HoaDonDAO
        dt = hoadon.IDHoaDon(id)
        Return dt
    End Function

    Public Sub XoaHoaDon(ByVal id As HoaDonDTO)
        Dim hoa As New HoaDonDAO
        hoa.XoaHoaDon(id)
    End Sub
End Class
